SRT←10000;
INS 0 1; <  INSTRUMENT 1
SET P5;  < P5=ENV.
OSC P4 P9 B2 F4 P29;
SET P8; < SHAPE OF GLISS
OSC P7 P9 B3 F5 P28;   < P9=INCR. FOR ENV. ETC.
AD2 P3 B3 B3;   < ADD THE FREQS.
SET P6;  < TONE COLOR
OSC B2 B3 B2 F2 P27;
OUT B2 B1;END; <  ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!  

         
GEN 0 2 2 1 1; <SINE WAVE
GEN 0 1 4 .999 0  .999 511;< ENV. F4  STRAIGHT LINE, FULL AMPL.
GEN 0 1 5    0 0  .999 511;< GLISS F5  SLOPE UP
<GEN 0 1 5 .999 0  .999 255  0 256 0 511;< GLISS F5  DOWN TO 0 1/2 WAY THROUGH.
GEN 0 1 3   .999 0  .999 255 ,-.999 256  ,-.999 511;< SQUARE
   <GEN TYPE 1, F2

INSTRUMENTS;
SIMP 1 9  FREQ 3  7
END;
 
PLAY;
SIMP 0 .02  1000 2000 F4  F2,-1000  F5;
FINI;